library(knitr)
opts_chunk$set(comment = NA, 
               results = "asis",
               comment = NA, tidy = FALSE)
library(rCharts)
 data(iris,package = "datasets",envir = baseenv())
  names(iris) = gsub('\\.', '', names(iris))
  e<-rPlot(SepalLength ~ SepalWidth | Species, data = iris, type = 'point', color = 'Species')
  # print(class(e))
  inherits(e,"rCharts")
[1] TRUE
  # e$show('inline', include_assets = TRUE, cdn = TRUE)
  e
e$show('iframesrc', cdn = TRUE)
e$print()
e$show('inline', include_assets = TRUE, cdn = TRUE)
library(rCharts)
hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male")
n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, 
            type = 'multiBarChart')
n1$show("iframesrc", cdn = TRUE)
<iframe srcdoc=' &lt;!doctype HTML&gt;
&lt;meta charset = &#039;utf-8&#039;&gt;
&lt;html&gt;
  &lt;head&gt;
    &lt;link rel=&#039;stylesheet&#039; href=&#039;//cdnjs.cloudflare.com/ajax/libs/nvd3/1.1.15-beta/nv.d3.min.css&#039;&gt;
    
    &lt;script src=&#039;//ajax.googleapis.com/ajax/libs/jquery/1.8.2/jquery.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//d3js.org/d3.v3.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//cdnjs.cloudflare.com/ajax/libs/nvd3/1.1.15-beta/nv.d3.min.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    &lt;script src=&#039;//nvd3.org/assets/lib/fisheye.js&#039; type=&#039;text/javascript&#039;&gt;&lt;/script&gt;
    
    &lt;style&gt;
    .rChart {
      display: block;
      margin-left: auto; 
      margin-right: auto;
      width: 800px;
      height: 400px;
    }  
    &lt;/style&gt;
    
  &lt;/head&gt;
  &lt;body &gt;
    
    &lt;div id = &#039;chart20c67355b4&#039; class = &#039;rChart nvd3&#039;&gt;&lt;/div&gt;    
    &lt;script type=&#039;text/javascript&#039;&gt;
 $(document).ready(function(){
      drawchart20c67355b4()
    });
    function drawchart20c67355b4(){  
      var opts = {
 &quot;dom&quot;: &quot;chart20c67355b4&quot;,
&quot;width&quot;:    800,
&quot;height&quot;:    400,
&quot;x&quot;: &quot;Hair&quot;,
&quot;y&quot;: &quot;Freq&quot;,
&quot;group&quot;: &quot;Eye&quot;,
&quot;type&quot;: &quot;multiBarChart&quot;,
&quot;id&quot;: &quot;chart20c67355b4&quot; 
},
        data = [
 {
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             32 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             53 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Brown&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              3 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             11 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             50 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Blue&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             30 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             10 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             25 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              7 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Hazel&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              5 
},
{
 &quot;Hair&quot;: &quot;Black&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              3 
},
{
 &quot;Hair&quot;: &quot;Brown&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:             15 
},
{
 &quot;Hair&quot;: &quot;Red&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              7 
},
{
 &quot;Hair&quot;: &quot;Blond&quot;,
&quot;Eye&quot;: &quot;Green&quot;,
&quot;Sex&quot;: &quot;Male&quot;,
&quot;Freq&quot;:              8 
} 
]
  
      if(!(opts.type===&quot;pieChart&quot; || opts.type===&quot;sparklinePlus&quot; || opts.type===&quot;bulletChart&quot;)) {
        var data = d3.nest()
          .key(function(d){
            //return opts.group === undefined ? &#039;main&#039; : d[opts.group]
            //instead of main would think a better default is opts.x
            return opts.group === undefined ? opts.y : d[opts.group];
          })
          .entries(data);
      }
      
      if (opts.disabled != undefined){
        data.map(function(d, i){
          d.disabled = opts.disabled[i]
        })
      }
      
      nv.addGraph(function() {
        var chart = nv.models[opts.type]()
          .width(opts.width)
          .height(opts.height)
          
        if (opts.type != &quot;bulletChart&quot;){
          chart
            .x(function(d) { return d[opts.x] })
            .y(function(d) { return d[opts.y] })
        }
          
         
        
          
        

        
        
        
      
       d3.select(&quot;#&quot; + opts.id)
        .append(&#039;svg&#039;)
        .datum(data)
        .transition().duration(500)
        .call(chart);

       nv.utils.windowResize(chart.update);
       return chart;
      });
    };
&lt;/script&gt;
    
    &lt;script&gt;&lt;/script&gt;    
  &lt;/body&gt;
&lt;/html&gt; ' scrolling='no' frameBorder='0' seamless class='rChart  nvd3  ' id='iframe-chart20c67355b4'> </iframe>
 <style>iframe.rChart{ width: 100%; height: 400px;}</style>
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6IGRlZmF1bHQNCiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdA0KICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQNCi0tLQ0KDQo8c2NyaXB0IHNyYz0iQzovVXNlcnMvdmluY2VudC9Eb2N1bWVudHMvVGhpbmtSL01pc3Npb24vRURGIC0gZGVmZW5zZS9yZXBvcnRpbmcgZGFucyBzaG55L3NoaW55dG9kb2N4L2luc3QvbXlfYXBwL3d3dy9qcy9oaWdoY2hhcnQuanMiPjwvc2NyaXB0Pg0KPHNjcmlwdCBzcmM9IkM6L1VzZXJzL3ZpbmNlbnQvRG9jdW1lbnRzL1RoaW5rUi9NaXNzaW9uL0VERiAtIGRlZmVuc2UvcmVwb3J0aW5nIGRhbnMgc2hueS9zaGlueXRvZG9jeC9pbnN0L215X2FwcC93d3cvanMvaGlnaGNoYXJ0cy1tb3JlLmpzIj48L3NjcmlwdD4NCjxzY3JpcHQgc3JjPSJDOi9Vc2Vycy92aW5jZW50L0RvY3VtZW50cy9UaGlua1IvTWlzc2lvbi9FREYgLSBkZWZlbnNlL3JlcG9ydGluZyBkYW5zIHNobnkvc2hpbnl0b2RvY3gvaW5zdC9teV9hcHAvd3d3L2pzL21vdGlvbi5qcyI+PC9zY3JpcHQ+DQoNCmBgYHtyIHNldHVwfQ0KbGlicmFyeShrbml0cikNCm9wdHNfY2h1bmskc2V0KGNvbW1lbnQgPSBOQSwgDQogICAgICAgICAgICAgICByZXN1bHRzID0gImFzaXMiLA0KICAgICAgICAgICAgICAgY29tbWVudCA9IE5BLCB0aWR5ID0gRkFMU0UpDQpgYGANCg0KYGBge3J9DQoNCmxpYnJhcnkockNoYXJ0cykNCiBkYXRhKGlyaXMscGFja2FnZSA9ICJkYXRhc2V0cyIsZW52aXIgPSBiYXNlZW52KCkpDQogIG5hbWVzKGlyaXMpID0gZ3N1YignXFwuJywgJycsIG5hbWVzKGlyaXMpKQ0KICBlPC1yUGxvdChTZXBhbExlbmd0aCB+IFNlcGFsV2lkdGggfCBTcGVjaWVzLCBkYXRhID0gaXJpcywgdHlwZSA9ICdwb2ludCcsIGNvbG9yID0gJ1NwZWNpZXMnKQ0KICAjIHByaW50KGNsYXNzKGUpKQ0KICBpbmhlcml0cyhlLCJyQ2hhcnRzIikNCiAgZSRzaG93KCdpbmxpbmUnLCBpbmNsdWRlX2Fzc2V0cyA9IFRSVUUsIGNkbiA9IFRSVUUpDQpgYGANCg0KYGBge3J9DQplJHNob3coJ2lmcmFtZXNyYycsIGNkbiA9IFRSVUUpDQpgYGANCg0KDQoNCmBgYHtyfQ0KZSRwcmludCgpDQpgYGANCg0KDQpgYGB7cn0NCmUkc2hvdygnaW5saW5lJywgaW5jbHVkZV9hc3NldHMgPSBUUlVFLCBjZG4gPSBUUlVFKQ0KYGBgDQoNCmBgYHtyfQ0KbGlicmFyeShyQ2hhcnRzKQ0KaGFpcl9leWVfbWFsZSA8LSBzdWJzZXQoYXMuZGF0YS5mcmFtZShIYWlyRXllQ29sb3IpLCBTZXggPT0gIk1hbGUiKQ0KbjEgPC0gblBsb3QoRnJlcSB+IEhhaXIsIGdyb3VwID0gIkV5ZSIsIGRhdGEgPSBoYWlyX2V5ZV9tYWxlLCANCiAgICAgICAgICAgIHR5cGUgPSAnbXVsdGlCYXJDaGFydCcpDQpuMSRzaG93KCJpZnJhbWVzcmMiLCBjZG4gPSBUUlVFKQ0KYGBgDQoNCg==